home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amiga / rexxecute / demo / egotest.rx < prev    next >
Encoding:
Text File  |  1995-10-11  |  205 b   |  16 lines
  1. /* EGOTISTICAL ( or should that be EGO TESTICAL) INFO tester */
  2. ADDRESS 'REXECUTE'
  3.  
  4. CALL TIMEDELAY( 10 )
  5. CLOSEABOUT
  6.  
  7. TIMEDELAY:
  8. PARSE ARG number
  9.  
  10. CALL time 'R'
  11. DO WHILE time('E') < number
  12.     nop
  13. end
  14. RETURN
  15.  
  16.